home *** CD-ROM | disk | FTP | other *** search
/ Mega Guia 2004 June / Mega Guia: 2004-06.iso / _files / free / myalbum / ES / myalbumsetup.exe / {app} / BuildVideoTh.vbs < prev    next >
Text File  |  2002-11-28  |  1KB  |  29 lines
  1. '---------------------------------------------------------------------------------
  2. '                BuildVideoTh.vbs
  3. ' This script is used to replace the default thumbnail used for the video files
  4. ' with a screenshot taken from the video.
  5. ' Associate this script to a keyword shortcut.
  6. ' When viewing the video, press the shortcut to capture the current video frame
  7. ' (in non DirectShow mode).
  8. ' It can be also be used from the thumbnail view, to replace the thumbnail of any
  9. ' picture of the album with an arbitrary picture placed on the Windows clipboard.
  10. '---------------------------------------------------------------------------------
  11. Option Explicit
  12.  
  13. Dim alb, pic
  14. set alb = app.GetCurrentAlbum
  15.  
  16. if not alb is nothing then
  17.   set pic = alb.GetVisiblePicture( alb.nCurrentPicture )
  18.   if not pic is nothing then
  19.  
  20.     ' If we are in full-screen mode, copy the current frame (or picture) to the clipboard
  21.     if not app.GetFullScreenView is nothing then pic.copy( 0 )
  22.  
  23.     ' Paste the content of the clipboard to the thumbnail
  24.     pic.pasteToThumbnail True
  25.     alb.ReDraw
  26.   end if
  27. end if
  28.  
  29.